home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
bbsutil
/
s_ver092.zip
/
S-VER.Q-A
< prev
next >
Wrap
Text File
|
1990-09-03
|
2KB
|
97 lines
ClearScreen
ChangeColor 14 0
Display " S-VER Call Back User Reqister Survey |"
ChangeColor 7 0
Display "|"
Display " Due to the volume of requests for access to this System |"
Display "We Will need You to Answer a Few Questions. Anyone who chooses |"
Display "not to answer, Will not gain access to this Board...! |"
Display "|"
Display " This information is needed for my records only. Please take |"
Display "the time to fill in this Survey. This is the only time You will |"
Display "be asked or permitted to Answer these Questions....!|"
Display " Thank You...... *Your Sysop*.
Display "|"
ChangeColor 14 0
Display " What is Your Real Full Name...|"
ChangeColor 3 0
Ask 35 1
ChangeColor 14 0
Display " Is this your Log on Name (Y/N)? |"
ChangeColor 3 0
GetChoice YN 2
If 2 = "N"
ChangeColor 14 0
Display " What is your Log on Name|: "
ChangeColor 3 0
Ask 35 3
EndIf
ChangeColor 14 0
Display " What is Your Correct Street Address |"
changecolor 3 0
ask 45 4
changecolor 14 0
Display " What is Your Correct Town |"
changecolor 3 0
ask 45 5
changecolor 14 0
Display " What is the Correct State (two Letters ) |"
changecolor 3 0
ask 2 6
Changecolor 14 0
Display " What is you Correct ZipCode... (5 or 9 digit code)|"
Changecolor 3 0
Ask 10 7
Changecolor 14 0
Display " Is this also the Mailing Address (Y/N) |"
Changecolor 3 0
Getchoice yn 8
If 8 = "N"
Changecolor 14 0
Display " You Will have two lines to Input your Mailing Address....|"
Display " ON First line input Box or other Street Address|"
Changecolor 3 0
Ask 50 9
Changecolor 14 0
Display " On This Line Input, City, State & Zip Code....|"
ChangeColor 3 0
ask 50 10
endif
ChangeColor 14 0
Display " What is your age (please be honest)? | "
ChangeColor 3 0
Ask 2 11
PostInfo
OutputAnswer "Full Real Name : " 1
OutputAnswer "Log On Name : " 3
OutputAnswer "Street : " 4
OutputAnswer "City : " 5
OutputAnswer "State : " 6
OutputAnswer "Zip Code : " 7
OutputAnswer "Street/box Mail: " 9
OutputAnswer "City/State/Zip : " 10
OutputAnswer "Current Age : " 11
ChangeColor 15 0
Display "|"
Display "|"
Display " Thank You For Taking The Time to Answer These Questions !|"
Display "|"
Display " This Will Save US a lot of Wasted Time and E-mail........|"
Display "|"
Display "|"
ChangeColor 7 0
quit